home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat98 / mpls_patch_v1.2_demo / install mpls patch demo < prev    next >
Text File  |  1995-05-30  |  20KB  |  640 lines
  1. ;
  2. ;  $VER: MPLS Patch DEMO Install v1.2 (17/05/95)
  3. ;
  4.  
  5.  (complete 0)
  6.  
  7.  (if (< (/ (getversion) 65536) 39)
  8.   (abort "Désolé, ce programme nécessite l'OS 3.0 ou supérieur !")
  9.  )
  10.  
  11.  (welcome)
  12.  (message (cat "\n"
  13.                "MPLS Patch v1.2 SHAREWARE - VERSION DEMO"
  14.                "\n\n"
  15.                "- The Magic Picture Loader System -"
  16.                "\n"
  17.                "Copyright © (17/05/95) Lejardinier Olivier"
  18.                "\n"
  19.                "All rights reserved."
  20.                "\n\n"
  21.                "Ce patch  permet  à  *N'IMPORTE*  quelle  application "
  22.                "(par  exemple  :  Brilliance)  de  charger  tous  les "
  23.                "formats d'image (JPEG, GIF, TARGA, etc...), si  votre "
  24.                "système en possède le datatype.                       "
  25.                "\n\n"
  26.                "Pour plus de détails, lisez la documentation."
  27.           )
  28.  )
  29.  
  30.  (if (askchoice
  31.       (prompt (cat "\n"
  32.                    "Voulez-vous retirer de votre système une précédente "
  33.                    "version de MPLS Patch DEMO  ?"
  34.                    "\n\n"
  35.                    "Pour plus d'informations, cliquez sur 'Help...'"
  36.                    "\n"
  37.               )
  38.       )
  39.       (help (cat "\n"
  40.                  "Si  vous   choisissez   'Installer',  le  programme "
  41.                  "d'installation poursuivra l'installation  de  cette "
  42.                  "version."
  43.                  "\n\n"
  44.                  "Si   vous   choisissez   'Retirer',  le   programme "
  45.                  "d'installation   essaiera   de   retirer  tous  les "
  46.                  "fichiers de la  précédente  installation  afin  que "
  47.                  "ceux-ci   n'entre   pas   en   conflit  avec  cette "
  48.                  "installation."
  49.             )
  50.       )
  51.       (choices "Installer"
  52.                "Retirer"
  53.       )
  54.       (default 0)
  55.      )
  56.   (
  57.    (set olddrawer-source
  58.     (askdir
  59.      (prompt (cat "\n"
  60.                   "Où avez-vous installé le répertoire MPLS_Patch_DEMO "
  61.                   "lors de la précédente installation ?"
  62.                   "\n"
  63.              )
  64.      )
  65.      (help (cat "\n"
  66.                 "Vous  devez  sélectionner   une   partition  ou  un "
  67.                 "répertoire de  votre  disque  dur  dans lequel vous "
  68.                 "avez installé  le  répertoire  de  MPLS Patch DEMO, "
  69.                 "lors de la précédente installation."
  70.            )
  71.      )
  72.      (default "SYS:Tools")
  73.     )
  74.    )
  75.    
  76.    (if (not (exists (tackon olddrawer-source "MPLS_Patch_DEMO")))
  77.     (abort (cat "\n"
  78.                 "Le répertoire sélectionné ne contient pas de répertoire "
  79.                 "'MPLS_Patch_DEMO'."
  80.            )
  81.     )
  82.     (set @default-dest (tackon olddrawer-source "MPLS_Patch_DEMO"))
  83.    )
  84.      
  85.    (set oldpatch-source
  86.     (askdir
  87.      (prompt (cat "\n"
  88.                   "Où avez-vous installé le programme principal de "
  89.                   "\n"
  90.                   "MPLS Patch DEMO lors de la précédente installation ?"
  91.                   "\n"
  92.              )
  93.      )
  94.      (help (cat "\n"
  95.                 "Vous  devez  sélectionner   une   partition  ou  un "
  96.                 "répertoire de  votre  disque  dur  dans lequel vous "
  97.                 "avez   effectué   la  précédente   installation  du "
  98.                 "programme principal de MPLS Patch DEMO."
  99.                 "\n"
  100.                 "Le programme principal a soit été installé dans son "
  101.                 "répertoire    'MPLS_Patch_DEMO',   soit   dans   le "
  102.                 "répertoire 'WBStartup' de votre partition Workbench."
  103.            )
  104.      )
  105.      (default @default-dest)
  106.     )
  107.    )
  108.  
  109.    (set olddoc-source
  110.     (askdir
  111.      (prompt (cat "\n"
  112.                   "Où avez-vous installé la documentation de "
  113.                   "\n"
  114.                   "MPLS Patch DEMO lors de la précédente installation ?"
  115.                   "\n"
  116.              )
  117.      )
  118.      (help (cat "\n"
  119.                 "Vous  devez  sélectionner   une   partition  ou  un "
  120.                 "répertoire de  votre  disque  dur  dans lequel vous "
  121.                 "avez   effectué   la  précédente  installation  de  "
  122.                 "la documentation de MPLS Patch DEMO."
  123.                 "\n"
  124.                 "La documentation a sans doute été installé dans  le "
  125.                 "répertoire 'MPLS_Patch_DEMO'."
  126.            )
  127.      )
  128.      (default @default-dest)
  129.     )
  130.    )
  131.  
  132.    (working (cat "\n"
  133.                  "Effacement du programme principal..."
  134.             )
  135.    )
  136.    (run "C:Delete >NIL: " (tackon oldpatch-source "MPLS_DEMO.B#?") " ALL FORCE QUIET")
  137.    (run "C:Delete >NIL: " (tackon oldpatch-source "MPLS_DEMO.T#?") " ALL FORCE QUIET")
  138.    (run "C:Delete >NIL: " (tackon oldpatch-source "MPLS_DEMO.B#?") " ALL FORCE QUIET")
  139.    (run "C:Delete >NIL: " (tackon oldpatch-source "MPLS_Patch.B#?") " ALL FORCE QUIET")
  140.    (run "C:Delete >NIL: " (tackon oldpatch-source "MPLS_Patch.T#?") " ALL FORCE QUIET")
  141.    (run "C:Delete >NIL: " (tackon oldpatch-source "MPLS_Patch.D#?") " ALL FORCE QUIET")
  142.    (run "C:Delete >NIL: SYS:WBStartup/MPLS_DEMO.B#? ALL FORCE QUIET")
  143.    (run "C:Delete >NIL: SYS:WBStartup/MPLS_DEMO.T#? ALL FORCE QUIET")
  144.    (run "C:Delete >NIL: SYS:WBStartup/MPLS_DEMO.B#? ALL FORCE QUIET")
  145.    (run "C:Delete >NIL: SYS:WBStartup/MPLS_Patch.B#? ALL FORCE QUIET")
  146.    (run "C:Delete >NIL: SYS:WBStartup/MPLS_Patch.T#? ALL FORCE QUIET")
  147.    (run "C:Delete >NIL: SYS:WBStartup/MPLS_Patch.B#? ALL FORCE QUIET")
  148.  
  149.    (working (cat "\n"
  150.                  "Effacement de la documentation..."
  151.             )
  152.    )
  153.    (run "C:Delete >NIL: " (tackon olddoc-source "MPLS.Guide#?") " ALL FORCE QUIET")
  154.    (run "C:Delete >NIL: " (tackon olddoc-source "MPLS.Doc#?") " ALL FORCE QUIET")
  155.    (run "C:Delete >NIL: " (tackon olddoc-source "MPLS_#?DEMO.Guide#?") " ALL FORCE QUIET")
  156.    (run "C:Delete >NIL: " (tackon olddoc-source "MPLS_#?DEMO.Doc#?") " ALL FORCE QUIET")
  157.    (run "C:Delete >NIL: " (tackon olddoc-source "Description#?") " ALL FORCE QUIET")
  158.    (run "C:Delete >NIL: " (tackon olddoc-source "Shareware#?") " ALL FORCE QUIET")
  159.    (run "C:Delete >NIL: " (tackon olddoc-source "Registration#?") " ALL FORCE QUIET")
  160.    (run "C:Delete >NIL: " (tackon olddoc-source "Bugs_Report#?") " ALL FORCE QUIET")
  161.    (run "C:Delete >NIL: " (tackon olddoc-source "Print#?") " ALL FORCE QUIET")
  162.    (run "C:Delete >NIL: " (tackon olddoc-source "Locale#?") " ALL FORCE QUIET")
  163.    (run "C:Delete >NIL: " (tackon olddoc-source "Catalogs#?") " ALL FORCE QUIET")
  164.    (run "C:Delete >NIL: LOCALE:Catalogs/Français/mplspatch_demo.catalog ALL FORCE QUIET")
  165.  
  166.    (working (cat "\n"
  167.                  "Effacement du répertoire 'MPLS_Patch_DEMO'..."
  168.             )
  169.    )
  170.    (run "C:Delete >NIL: " (tackon olddrawer-source "MPLS_Patch_DEMO#?") " ALL FORCE QUIET")
  171.  
  172.    (if (not (askbool
  173.              (prompt (cat "\n"
  174.                           "Voulez-vous procéder à l'installation de la nouvelle "
  175.                           "version de MPLS Patch DEMO ?"
  176.                      )
  177.              )
  178.              (help (cat "\n"
  179.                         "Si  vous   répondez   'Installer',   le   programme "
  180.                         "d'installation installera  la  nouvelle version  de "
  181.                         "MPLS Patch DEMO."
  182.                         "\n\n"
  183.                         "Si   vous   répondez   ' Quitter',   le   programme "
  184.                         "d'installation s'arrêtera."
  185.                    )
  186.              )
  187.              (choices "Installer"
  188.                       "Quitter"
  189.              )
  190.             )
  191.        )
  192.     (abort (cat "\n"
  193.                 "Installation abandonnée..."
  194.            )
  195.     )
  196.    )
  197.   )
  198.  )
  199.     
  200.      
  201.  (set patch-version
  202.   (askchoice
  203.    (prompt (cat "\n"
  204.                 "Quelle version de MPLS Patch DEMO voulez-vous utiliser ?"
  205.                 "\n"
  206.            )
  207.    )
  208.    (help (cat "\n"
  209.               "Vous devez sélectionner l'utilitaire graphique avec "
  210.               "lequel MPLS Patch DEMO sera utilisé."
  211.               "\n\n"
  212.               "IMPORTANT : La version que  vous  sélectionnerez ne "
  213.               "sera utilisable  qu'AVEC  l'utilitaire qraphique en "
  214.               "question, donc si vous désirez une version complète "
  215.               "\n\n"
  216.               "               !!! ENREGISTREZ-VOUS !!!"
  217.               "\n\n"
  218.               "Voir la section  'Shareware'  de  la  documentation "
  219.               "pour plus de détails."
  220.          )
  221.    )
  222.    (choices "Brilliance"
  223.             "TrueBrilliance"
  224.             "DPaint"
  225.             "Toutes les versions"
  226.    )
  227.    (default 0)
  228.   )
  229.  )
  230.  
  231.  (set patch-dest "SYS:Tools")
  232.  
  233.  (if (<> patch-version 3)
  234.   (if (not (exists "SYS:WBStartup/MPLS_Patch"))
  235.    (
  236.     (message (cat "\n"
  237.                   "Le  programme  d'installation  va  maintenant  vous "
  238.                   "demander  si  vous  voulez que MPLS Patch DEMO soit "
  239.                   "installé en permanence dans le système.             "
  240.                   "\n\n"
  241.                   "CEPENDANT, n'oublier  pas que cette version est une "
  242.                   "démonstration,  et  qu'elle  se DESACTIVERA au bout "
  243.                   "d'un certain temps, donc l'installation  permanente "
  244.                   "n'est pas forcément le meilleur choix...            "
  245.              )
  246.     )
  247.     (if (askbool
  248.          (prompt (cat "\n"
  249.                       "Voulez-vous que  MPLS Patch DEMO  soit  installé en "
  250.                       "permanence dans le système ?"
  251.                       "\n"
  252.                  )
  253.          )
  254.          (help (cat "\n"
  255.                     "Si vous répondez 'Oui', le programme  principal  de "
  256.                     "MPLS Patch DEMO  sera   copié  dans  le  répertoire "
  257.                     "'WBStartup' de votre partition Workbench afin qu'il "
  258.                     "puisse être installé dans le  système à chaque fois "
  259.                     "que vous redémarrerez votre Amiga.                  "
  260.                     "\n\n"
  261.                     "Si  vous  répondez  'Non',   MPLS Patch DEMO   sera "
  262.                     "installé avec son propre répertoire à l'emplacement "
  263.                     "que vous choisirez."
  264.                     "\n\n"
  265.                     "Dans les deux cas, la  documentation et les données "
  266.                     "annexes  seront   installées   dans  le  répertoire "
  267.                     "'MPLS_Patch_DEMO'."
  268.                )
  269.          )
  270.          (choices "Oui"
  271.                   "Non"
  272.          )
  273.         )
  274.      (set patch-dest "SYS:WBStartup")
  275.     )
  276.    )
  277.    (message (cat "\n"
  278.                  "Le programme d'installation  a  détecté la présence "
  279.                  "d'une version  ENREGISTREE  de  MPLS Patch  dans le "
  280.                  "répertoire 'WBStartup' de votre partition Workbench."
  281.                  "\n\n"
  282.                  "Si  c'est   vraiment  le  cas,  je  vous  conseille "
  283.                  "fortement  de   ne   pas  installer  le   programme "
  284.                  "principal de MPLS Patch DEMO dans ce répertoire.    "
  285.             )
  286.    )
  287.   )
  288.  )
  289.  
  290.  (set @default-dest patch-dest)
  291.  
  292.  (if (<> (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  293.   (
  294.    (set patch-dest
  295.     (askdir
  296.      (prompt (cat "\n"
  297.                   "Où voulez-vous installer 'MPLS_Patch_DEMO' ?"
  298.                   "\n"
  299.                   "(Un répertoire 'MPLS_Patch_DEMO' sera créé)"
  300.                   "\n"
  301.              )
  302.      )
  303.      (help (cat "\n"
  304.                 "Vous  devez   sélectionner   une  partition  ou  un "
  305.                 "répertoire de votre disque  dur  dans  lequel  sera "
  306.                 "installé le répertoire 'MPLS_Patch_DEMO'."
  307.                 "\n\n"
  308.                 "Si vous voulez que  MPLS Patch DEMO soit  actif  en "
  309.                 "permanence,  vous   devrez   déplacer   l'icône  du "
  310.                 "programme dans le répertoire 'WBStartup'  de  votre "
  311.                 "partition Workbench."
  312.            )
  313.      )
  314.      (default @default-dest)
  315.     )
  316.    )
  317.    
  318.    (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  319.     (abort (cat "\n"
  320.                 "Vous ne pouvez pas installer le répertoire "
  321.                 "'MPLS_Patch_DEMO' dans le répertoire 'SYS:WBStartup' !!!"
  322.            )
  323.     )
  324.     (set patch-dest (tackon patch-dest "MPLS_Patch_DEMO"))
  325.    )
  326.   )
  327.  )
  328.  
  329.  (set @default-dest patch-dest)
  330.  
  331.  (complete 10)
  332.  
  333.  (copyfiles
  334.   (source "")
  335.   (set patch-prog "")
  336.   (if (<> patch-version 3)
  337.    (if (= patch-version 0)
  338.     (
  339.      (choices "MPLS_Patch.Brilliance")
  340.      (set patch-prog "MPLS_Patch.Brilliance")
  341.     )
  342.     (if (= patch-version 1)
  343.      (
  344.       (choices "MPLS_Patch.TrueBrilliance")
  345.       (set patch-prog "MPLS_Patch.TrueBrilliance")
  346.      )
  347.      (
  348.       (choices "MPLS_Patch.DPaint")
  349.       (set patch-prog "MPLS_Patch.DPaint")
  350.      )
  351.     )
  352.    )
  353.    (choices "MPLS_Patch.Brilliance" "MPLS_Patch.TrueBrilliance" "MPLS_Patch.DPaint")
  354.   )
  355.   (dest patch-dest)
  356.   (files)
  357.   (infos)
  358.   (noposition)
  359.  )
  360.  
  361.  (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  362.    (tooltype
  363.     (dest (tackon patch-dest patch-prog))
  364.     (settooltype "QUIET" "")
  365.    )
  366.   (
  367.    (message (cat "\n"
  368.                  "Pour  désactiver  la  requête  'Patch installed !!' "
  369.                  "qui s'affichera lorsque  vous  exécuterez le patch, "
  370.                  "vous devrez retirer les () autour du tooltype QUIET "
  371.                  "dans l'icône du programme.                          "
  372.             )
  373.    )
  374.    (if (<> patch-version 3)
  375.     (
  376.      (tooltype
  377.       (dest (tackon patch-dest "MPLS_Patch.Brilliance"))
  378.       (settooltype "(QUIET)" "")
  379.      )
  380.      (tooltype
  381.       (dest (tackon patch-dest "MPLS_Patch.TrueBrilliance"))
  382.       (settooltype "(QUIET)" "")
  383.      )
  384.      (tooltype
  385.       (dest (tackon patch-dest "MPLS_Patch.DPaint"))
  386.       (settooltype "(QUIET)" "")
  387.      )
  388.     )
  389.    )
  390.   )
  391.  )
  392.  
  393.  (complete 35)
  394.  
  395.  (set doc-dest
  396.   (askdir
  397.    (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  398.     (
  399.      (set @default-dest "SYS:Tools")
  400.      (prompt (cat "\n"
  401.                   "Où voulez-vous installer la documentation ?"
  402.                   "\n"
  403.                   "(Un répertoire 'MPLS_Patch_DEMO' sera créé)"
  404.                   "\n"
  405.              )
  406.      )
  407.     )
  408.     (
  409.      (prompt (cat "\n"
  410.                   "Ou voulez-vous installer la documentation ?"
  411.                   "\n"
  412.              )
  413.      )
  414.     )
  415.    )
  416.    (help (cat "\n"
  417.               "Vous  devez   sélectionner  une   partition  ou  un "
  418.               "répertoire  de  votre  disque  dur dans lequel sera "
  419.               "copiée la documentation."
  420.               "\n\n"
  421.               "Note :"
  422.               "\n"
  423.               "Il est préférable de placer les documentations dans "
  424.               "le répertoire 'MPLS_Patch_DEMO'."
  425.          )
  426.    )
  427.    (default @default-dest)
  428.   )
  429.  )
  430.  
  431.  (if (= (expandpath doc-dest) (expandpath "SYS:WBStartup"))
  432.   (abort (cat "\n"
  433.                "Vous ne pouvez pas installer la documentation de "
  434.                "MPLS Patch DEMO  dans le répertoire 'SYS:WBStartup' !!!"
  435.          )
  436.   )
  437.  )
  438.  
  439.  (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  440.   (set doc-dest (tackon doc-dest "MPLS_Patch_DEMO"))
  441.  )
  442.  
  443.  (complete 45)
  444.  
  445.  (set choice
  446.   (askchoice
  447.    (prompt (cat "\n"
  448.                 "Quel format de documentation voulez-vous utiliser ?"
  449.                 "\n"
  450.            )
  451.    )
  452.    (help (cat "\n"
  453.               "Vous devez sélectionner le  format de documentation "
  454.               "que vous désirez utiliser."
  455.               "\n\n"
  456.               "AmigaGuide : à visualiser avec Multiview."
  457.               "\n"
  458.               "Doc        : format  ASCII  normal  (ideal pour une "
  459.               "               sortie sur imprimante),  à  visualiser "
  460.               "               avec More, Multiview..."
  461.          )
  462.    )
  463.    (choices "AmigaGuide"
  464.             "Doc"
  465.             "AmigaGuide & Doc"
  466.    )
  467.    (default 0)
  468.   )
  469.  )
  470.  
  471.  (complete 55)
  472.  
  473.  (copyfiles
  474.   (source "")
  475.   (if (= choice 0)
  476.    (choices "MPLS_Patch_DEMO.Guide")
  477.    (if (= choice 1)
  478.     (choices "MPLS_Patch_DEMO.Doc")
  479.     (choices "MPLS_Patch_DEMO.Guide" "MPLS_Patch_DEMO.Doc")
  480.    )
  481.   )
  482.   (dest doc-dest)
  483.   (files)
  484.   (infos)
  485.   (noposition)
  486.  )
  487.  
  488.  (copyfiles
  489.   (source "")
  490.   (choices "Description" "Shareware" "Registration" "Bugs_Report" "Print.info")
  491.   (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  492.    (dest doc-dest)
  493.    (dest patch-dest)
  494.   )
  495.   (files)
  496.   (infos)
  497.   (noposition)
  498.  )
  499.  
  500.  (complete 70)
  501.  
  502.  (set choice
  503.   (askchoice
  504.    (prompt (cat "\n"
  505.                 "Dans quelle langue voulez-vous utiliser"
  506.                 "\n"
  507.                 "MPLS Patch DEMO ?"
  508.                 "\n"
  509.            )
  510.    )
  511.    (help (cat "\n"
  512.               "Vous devez sélectionner  la  langue  dans  laquelle "
  513.               "MPLS Patch DEMO sera utilisé."
  514.               "\n\n"
  515.               "Le catalogue français ne sera installé QUE si  vous "
  516.               "sélectionnez 'Française'."
  517.               "\n\n"
  518.               "Note :"
  519.               "\n"
  520.               "Votre   choix  doit   normalement  correspondre  au "
  521.               "langage  utilisé   pour  votre  Workbench  (voir le "
  522.               "programme de préférences 'SYS:Prefs/Locale')."
  523.          )
  524.    )
  525.    (choices "Française"
  526.             "Anglaise"
  527.    )
  528.    (default 0)
  529.   )
  530.  )
  531.  
  532.  (complete 75)
  533.  
  534.  (if (= choice 0)
  535.   (
  536.    (if (not (exists "LOCALE:Catalogs"))
  537.     (makedir "LOCALE:Catalogs")
  538.    )
  539.    (copyfiles
  540.     (source "Catalogs/Français/mplspatch_demo.catalog")
  541.     (dest "LOCALE:Catalogs/Français")
  542.     (files)
  543.    )
  544.   )
  545.   (run "C:Delete >NIL: LOCALE:Catalogs/Français/mplspatch_demo.catalog QUIET FORCE")
  546.  )
  547.  
  548.  (copyfiles
  549.   (source "Catalogs")
  550.   (choices "Make_Cat_Demo" "mplspatch_demo.cd" "Français/français_demo.ct")
  551.   (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  552.    (dest (tackon doc-dest "Locale"))
  553.    (dest (tackon patch-dest "Locale"))
  554.   )
  555.   (files)
  556.   (infos)
  557.   (noposition)
  558.  )
  559.  
  560.  (if (askbool
  561.       (prompt (cat "\n"
  562.                    "Voulez-vous installer les images d'exemple ?"
  563.                    "\n"
  564.               )
  565.       )
  566.       (help (cat "\n"
  567.                  "Ces images, dans divers formats,  vous  permettront "
  568.                  "de   tester  MPLS Patch DEMO  avec  les  différents "
  569.                  "datatypes déjà installés dans votre système."
  570.             )
  571.       )
  572.       (choices "Oui"
  573.                "Non"
  574.       )
  575.      )
  576.   (
  577.    (set pics-dest
  578.     (askdir
  579.      (prompt (cat "\n"
  580.                   "Où voulez-vous installer ces images ?"
  581.                   "\n"
  582.                   "(Un répertoire 'MPLS_Examples' sera créé)"
  583.                   "\n"
  584.              )
  585.      )
  586.      (help (cat "\n"
  587.                 "Vous  devez   sélectionner  une   partition  ou  un "
  588.                 "répertoire  de  votre  disque  dur dans lequel sera "
  589.                 "installé  le  répertoire  'MPLS_Examples' contenant "
  590.                 "les images d'exemple qui vous permettront de tester "
  591.                 "MPLS Patch DEMO."
  592.            )
  593.      )
  594.      (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  595.       (default doc-dest)
  596.       (default patch-dest)
  597.      )
  598.     )
  599.    )
  600.    (if (= (expandpath pics-dest) (expandpath "SYS:WBStartup"))
  601.     (abort (cat "\n"
  602.                 "Vous ne pouvez pas installer les images d'exemple de "
  603.                 "MPLS Patch DEMO  dans le répertoire 'SYS:WBStartup' !!!"
  604.            )
  605.     )
  606.    )
  607.    (working "Désarchivage des images d'exemple...")
  608.    (run "C/LHEX -fwT: x Examples/Pics.LHA")
  609.    (copyfiles
  610.     (source "T:")
  611.     (dest (tackon pics-dest "MPLS_Examples"))
  612.     (pattern "Pic#?")
  613.     (files)
  614.     (infos)
  615.    )
  616.    (run "C:Delete T:Pic#?")
  617.   )
  618.  )
  619.  
  620.  (complete 95)
  621.  
  622.  (message (cat "\n"
  623.                "Pour  démarrer   MPLS Patch DEMO   tout   de  suite, "
  624.                "double-cliquez  sur  son  icône,  que vous trouverez "
  625.                "dans le répertoire :                                 "
  626.                "\n\n"
  627.                "'"(expandpath patch-dest)"'"
  628.                "\n\n"
  629.                "Pour  que  MPLS Patch DEMO  fonctionne  normalement, "
  630.                "plusieurs  'datatypes'  pouvant  gérer  des  formats "
  631.                "d'images doivent être installés dans votre  système. "
  632.                "\n\n"
  633.                "Vous pouvez aussi vous  en  procurer auprès de votre "
  634.                "distributeur de programmes du domaine publique.      "
  635.           )
  636.  )
  637.  
  638.  (complete 100)
  639.  
  640.  (exit)